home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Applications / DropBin 1.5 / Toolbox.p < prev   
Text File  |  1997-04-16  |  893b  |  55 lines
  1. Unit Toolbox;
  2.  
  3. Interface
  4.  
  5. Uses
  6.     Windows, Fonts, Dialogs, Processes, ToolUtils, Devices, Resources, Sound, 
  7.     Icons, Lists, StandardFile, Folders, QDOffscreen, AppleEvents, SegLoad, 
  8.     Aliases, GestaltEqu, Controls;
  9.     
  10. Type
  11.     str3    =    string[3];
  12.     str4    =    string[4];
  13.     str5    =    string[5];
  14.     str6    =    string[6];
  15.     str7    =    string[7];
  16.     str8    =    string[8];
  17.     
  18. Procedure InitToolbox;
  19. Procedure Wait(ticks:    longint);
  20. Function GetRandom(n: integer): integer;
  21.  
  22. Implementation
  23.  
  24. Procedure Wait(ticks:    longint);
  25.  
  26. Var
  27.     start: longint;
  28.     
  29.     begin
  30.     start := TickCount;
  31.     while TickCount < start + ticks do;
  32.     end;
  33.         
  34. Procedure InitToolbox;
  35.  
  36.     begin
  37.     InitGraf(@qd.thePort);
  38.     InitFonts;
  39.     InitWindows;
  40.     InitMenus;
  41.     TEInit;
  42.     InitDialogs(NIL);
  43.     InitCursor;
  44.     MaxApplZone;
  45.     MoreMasters;
  46.     GetDateTime(qd.RandSeed);
  47.     end;
  48.  
  49. Function GetRandom(n: integer): integer;
  50.  
  51.     begin
  52.     GetRandom := 1 + trunc(unsignedLong(random)/65535 * n);
  53.     end;
  54.     
  55. End.